home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1997 #3 / amigamamagazinepolishissue03-1 / kolekcje / ghost / symulatoreprom / instaluj na hd < prev    next >
Text File  |  1997-04-09  |  4KB  |  103 lines
  1. ;--------------------- Instaler programu Symulator eprom ---------------
  2. (
  3.    (
  4.    message ("\nInstalacja na twardy dysk programu\nSymulator Eprom\n\nSystem operacyjny musi byê wczytany z twardego dysku, dopiero wtedy moûesz wîoûyê do stacji dyskietkë z programem.\n\n")
  5.    )
  6.  
  7.    ;------------ Sprawdzenie wersji systemu operacyjnego ----------------
  8.    (
  9.     (set OS_Version (/ (getversion) 65536))
  10.     (if (< OS_Version 37)
  11.         (abort "Wymagany Workbench w wersji minimum 2.04 do instalacji programu Symulator Eprom")
  12.     )
  13.    )
  14.  
  15.    ;----------------- Wybranie katalogu do instalacji ------------------
  16.    (
  17.    set DESTDIR (askdir
  18.                    (prompt  ("Wybierz urzâdzenie i katalog, w którym zostanie utworzony katalog SymulatorROM"))
  19.                    (help    ("W tym miejscu naleûy wybraê partycjë, na którâ zainstalowany zostanie katalog z programem."))
  20.                    (default ("Work:"))
  21.            )
  22.    )
  23.  
  24.    (
  25.    if (= (exists DESTDIR) 0)
  26.       (makedir DESTDIR (infos))
  27.    )
  28.  
  29.    ;------ pobranie i sprawdzenie wielkoôci wolnego miejsca na dysku -------
  30.    (
  31.    (set SPACE (getdiskspace DESTDIR))
  32.  
  33.    (
  34.    if( < SPACE 300000)
  35.       (message ("\n\nUWAGA! Za maîo miejsca na twardym dysku, aby dokonaê instalacji!"))
  36.    )
  37.    )
  38.  
  39.    (
  40.    message ("\n\n\nPotwierdú chëê instalacji programu Symulator Eprom na\n\n%sSymulatorROM" DESTDIR)
  41.    )
  42.  
  43.    (set @default-dest DESTDIR)
  44.  
  45.    ;------------------------- Stworzenie katalogu --------------------
  46.    (makedir (tackon DESTDIR "SymulatorROM") (infos))
  47.  
  48.    ;------------------------- Skopiowanie plików ---------------------
  49.    (
  50.    copyfiles (source "SymulatorROM:")
  51.              (dest (tackon DESTDIR "SymulatorROM"))
  52.              (choices
  53.         "Symulator"
  54.         "SymulatorTest"
  55.         "Symulator.Assign.info"
  56.         "Instrukcja.guide"
  57.         "Z80"
  58.         "CA-80"
  59.              )
  60.              (confirm)
  61.              (prompt ("Wybierz pliki do skopiowania twardy dysk"))
  62.              (help ('Programem obsîugujâcym urzâdzenie jest plik "Symulator". "SymulatorTest" sîuûy do testowania i uruchamiania symulatora. Instrukcja obsîugi symulatora jest zawarta w pliku "Instrukcja.guide". W Szufladzie "Z80" znajduje sië program symulujâcy procesor Z80, wraz z kompilatorem i przykîadowymi plikami úródîowymi. Szuflada "CA-80" zawiera program transmisji danych z Amigi do CA-80, wraz z opisem wykonania interfejsu.'))
  63.          (infos)
  64.    )
  65.  
  66.    ;------------------------- Dopisanie do sekwencji startowej -------
  67.    (
  68.     (startup
  69.      "SymulatorROM"
  70.      (prompt "Czy dodaê do sekwencji startowej przypisanie urzâdzenia SymulatorROM: ?")
  71.      (help ('Przypisanie umoûliwi wywoîanie HELP-u z poziomu programu oraz uruchomienie programu z ikony "Symulator.assign".'))
  72.      (command ('        Assign SymulatorROM: "'))
  73.      (command (tackon DESTDIR 'SymulatorROM"'))
  74.     )
  75.    )
  76.  
  77.    ;---------------------- Skopiowanie bibliotek ---------------------
  78.    (
  79.    copylib (source "SymulatorROM:Libs/Reqtools.library")
  80.            (dest "Libs:")
  81.            (confirm)
  82.            (prompt ('Kopiowanie biblioteki "ReqTools" na twardy dysk'))
  83.            (help ('Biblioteka "ReqTools" jest niezbëdna do uruchomienia programu obsîugujâcego urzâdzenie.'))
  84.    )
  85.    (
  86.    copylib (source "SymulatorROM:Libs/Gadtools.library")
  87.            (dest "Libs:")
  88.            (confirm)
  89.            (prompt ('Kopiowanie biblioteki "GadTools" na twardy dysk'))
  90.            (help ('Biblioteka "GadTools" jest niezbëdna do uruchomienia programu obsîugujâcego urzâdzenie.'))
  91.    )
  92.  
  93. ;   ;----- Wykonanie rozkazu przypisania (to co dopisano do S:) --------
  94. ;   (
  95. ;    (run (tackon 'Assign SymulatorROM: " DESTDIR
  96. ;   )
  97.    ;----- w zastëpstwie tego co wyûej dodano to co niûej ---------
  98.    (
  99.    message ("\n\n\nTeraz musisz zretowaê komputer i juû moûesz uûywaê program.")
  100.    )
  101.  
  102. )
  103.